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Le mois dernier, nous avons fart un petit tour descriptif de la recursivite. Nous 
avons montre comment fonctionnait le principe, et surtout que, si cette 
technique est parfois irremplapable, elle n'est pas toujours une panacea. 
II nous reste a insister sur ces deux points, fondamentaux lorsque la recursivite 
est evoquee. 

Ce mois-ci, nous aliens donner des exemples interessants d'applications de la 
recursivite, a travers des techniques qui, pour certaines, sont a la pointe en 
matiere de programmation. 
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PLAN DU COURS 

1. Le retour arriere, de I'anglais backtracking 

2. Application : les dames en prises 

3. Un probleme grapliique 

4. Un exemple mathematique 

5. Conclusion 

6. Des exercices 

- Les tours de Hanoi' 

- Calculer la limite de I'expression 

- Un programme de tri recursif 
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1. LE RETOUR ARRIERE, DE L'ANGLAIS BACKTRACKING 

VoicJ le probleme. Au milieu d'une foret de possibilites, votre programme doit en choisir 
une, et pousser au bout ce choix, en en faisant d'autres par la suite. Si le choix en 
question est mauvais (on ne parvient pas a la solution), il faut revenir en arriere, pour 
essayer une autre solution. Comment faire ? La recursivite, avec son stockage 
automatique des parametres semble bien adaptee. 




Sur le graphlque representant les choix successifs d'un programme, supposons qye la 
reussite soit lobtention du chiffre 1 7 et que le critere de choix soit, par ordre de pnorite 
obligaloire (ce qui veut dire qua chaque fois, on essaie la premiere instruction, puis si 
elle n'est pas possible, la seconde... et on recommence ainsi a chaque nouvelle 
etape) : 

- 1 : descendre vers le nceud gauche 

- 2 : descendre vers le nosud droit 

- 3 : remonter. 

Dans le cas du graphe precedent, on aurait la suite de nceuds : 



-11-4-1 -5-12-5-13-5-1-R-2- 



-14-6-15-6-2-7-16- 



R-1 -4- 10- 
7 - 17 - FIN 

II est evident que, au lieu de descendre I'arbre jusqu'au bas de cheque branche, nous 
aurions pu descendre d'un niveau seulement, et explorer les nceuds de ce niveau : 11 se 
serait alors produit la suite de nceuds : 

R-1-R-2-R-3-R-1-4-1-5-1-R-2-6-2-7-2-R-3-8-3-9-3-R-1 
■ -4-10-4-11 -4-1 -5- 12-5-13-5-1-R-2-6-14-6-15-6-2-7-16-7- 
17 - FIN 

II semble ici que le procede est nettement plus long. Si maintenant le chtere de succes 
est de trouver le 3, avec la premiere methode, on aurait : 

R-1 -4- 10-4- 11 -4- 1 -5- 12-5- 13-5- 1 -R-2-6- 14-6-15-6-2-7- 16 
-7 - 17 -7-2 - R - 3 - FIN 
Avec la seconde : 
R'- 1 - R - 2 - R -3 - FIN 

La preuve est done faite que chacune des deux methodes a ses avantages et ses 
inconvenients. La premiere est appelee -parcours en profondeur d'abord», la seconde 
-en largeur d'abord=. 

Ceci peut vous sembler un peu artificiel. Done, nous allons proposer un jeu, pour 
clarifier les idees. Ce jeu consiste a faire deplacer un cheval sur un echiquier de telle 
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sorts que toutes les cases soient utilisees, une fois seulement. II existe un algorithme 
mais nous ne le considererons pas, puisque vous ne le connaissez peut-etre pas. 
Comment faire ? 

Nous pouvons ramener le probleme a la recherche du coup suivant ou, s'il n'existe 
pas, a I'etude permettant de savoir si on a gagne ou s'jl faut recommencer, car le jeu 
est bloque. Un exempie graphique d'abord : 




On le volt, la recherche peut etre vraiment longue et delicate. Mais, heureusement, 
I'homme a cree I'ordinateur, et nous allons done nous en servir !! 

2. APPLICATION : LES DAMES EN PRISES 

Dans le meme ordre d'idees, voici un programme qui execute la recherche complete 
de toutes les solutions, par une methode recursive du probleme suivant : trouver 
toutes les positions possibles de n reines sur un echiquier nxn, de telle sorte que les 
reines ne soient en position de prises sur aucune autre. Cela signifte qu'il positionne 
une piece, puis une autre sur la premiere case libre qu'il trouue, et ainsi de suite. S'il se 
trouve bloque, il revient un cran en arriere, et tente de trouver une autre solution. Si 
cest impossible, 11 revient encore un cran en arnere, et ainsi de suite, Une alternative 
est possible, qui arrete le programe des qu'une solution est trouvee. lei, nous 
chois/rons de les trouver toutes, Bien sur, il ne s'agit pas de les imprimer mais de les 
compter. Remarquons que lorsqu'une dame est sur une case, sa ligne et sa colonne 
ne peuvent plus servir, Nous utilisons cette propriete pour debuter sur la case (1,1) la 
rechercher et augmenter I'indice de ligne et celui de colonne a chaque fois. Voici le 
programme, et les commentaires. 



program Reines; 
const 

dim = 4; 
type 

tab_sol = array(1,,dim] of integer; 
var 

tab : tab_sol; 

i, j, nb_sol, k : integer; 

solution : boolean; 
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function bloquee (I, c : integer) : boolean; 
var 
indj, i : integer; 
begin 

bioquee := false; 
for i := 1 to c ■ 1 do 
begin 
indJ := abs(tab[i] ■ 1); 
if indJ * (indJ - c + i) = then 
bloquee := true; 
end; 
end; 

procedure trouve_sol (I, c : integer); 
var 

i : integer; 
ol< : boolean; - 
begin 
ok := false; 
if c > dim tlien 
begin 
nb_soi := nb_sol + 1 ; 
writein(nb_soi); 
end 
else 

for i := I to dim do 
if not bloquee(i, c) then 
begin 
tab[c] := i; 
trouve_sol(1 , c + 1); 
ok := true; 
end; 



if ((not ok) and (c s 
begin 

i := tabic - 1]; 

tab[c - 1] := 0; 

trouve_sol(i + 1, 
end; 
end; 



procedure init (var i, 
var tab : tab_sol); 



begin 



j, nb_sol : integer; 



i := 1; 
J := 1; 
nb_sol 
for k := 
tab[k] 
end; 



= 0; 

1 to dim do 
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begin 

init(i, j, nb_sol, tab); 

trouve_sol(i, j); 
end. 

Le programme comporte trois parties distinctes : 

- Programme principal qui se contente de lancer la recherche, apres une initialisation 
des donnees. 

- Recherche des solutions possibles. 

- Etudes des cases mises en prise lors des placements precedents. 

La premiere partie est banale et tres simple. La troisieme est realisee en utilisant une 
fonction de type booleen qui indique si la case envisagee est deja bloquee. 
La seconde partie boucle jusqu'a obtention de toutes les solutions, en enchainant les 
actions suivantes : 

- si dim dames sont placees, on a une nouvelle solution (ici dim - 4), 

- sinon, on tente d'en placer une nouvelle, a partir des bons indices de ligne et de 
colonnes, 

- on reprend la recherche a partir des conditions du cran precedent. 
Pour dim - ._ 2, 3, il n'y a pas de solutions. Pour dim = 4, 11 y en a deux ; 



Pour dim = 8, il y a 92 solutions !! Cela commence a en faire un certain nombre, et 
notre programme travaiile alors pendant pres de trois minutes. En comparaison, il taut 
19 secondes pour dim - 4. 

3. UN PROBLEME GRAPHIQUE 

Un probleme compietement different, utilisant les possibilites graphiques des 
ordinateurs recents. II est evident que ceux qui ne pourront pas le faire lourner 
trouveront cela frustrant, mais nous avons prefere le proposer car il illustre avant tout le 
propos de ce cours. II est cependant possible d'en faire une version reduite en basse 
resolution. Tout algorithme non recursif pour ce trace est tres long, tres complexe. Le 
programme trace des courbes dites de Sierpinsl<y. Ce sont des courbes recursives, 
c'est-a-dire que chaque element de la courbe depend des elements precedents, 
Le principe est le suivant : considerons I'element graphique de base : 



Dn peut I'utiliser pour former un dessin : 
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Par Line recurrence que nous aliens dechre, nous pouvons recommencer cette courbe 
sur Blle-meme, et Ton obtient : 




On voit que chaque element est celui de base, diminue de moitie, et accroche a 
I'element central. On peut a partir de la proposer une definition recursive. 

Notons que nous utilisons dans le programme la commande Forward qui permet de ne 
declarer une procedure qu'apres son appel. C'est obligafoire ici, car les procedures A, 
B, C et D s'appelleni les unes les autres, done il y aurait forcement un probleme sans 
cette possibilite. La commande FORWARD indique simplement au systeme que la 
procedure existe, est bien declaree, mais est decnte plus loin, Cette commande a deja 
ete decnte, mais vous en voyez ici la premiere utilisation, Voici le programme : 

Ce programme est ecrit sur un Macintosh. II utilise les procedures graphiques de cet 
ordinafeur, a savoir : 

- SHOWDRAWING : permel de visualiser la fenetre graphique, 

- MOVETO(x,y) : alier au point x,y, sans rien tracer, 

- LINETO(x,y) ; aller au point x,y, en tracant une ligne cjepuis le point ou Ton se 
trouve. 

Ce programme est simple dans son principe. II est par centre un peu complexe dans 
son ecriture, I'imbrication entre les procedures en etant la cause, 

program SierpinskLLED; 
const 

ordrs = 3; 
{' a vous de mettre le nombre que vous souhailez, mais aprfes 5 c est long *) 
m = 256; 
var 

i, h, X, y, xO, yO : integer; 
procedure A (i : integer); 

forward; 

procedure B (i : integer); 

forward; 
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procedure C (i : integer); 




forward; 




procedure D (i : integer); 




forward; 




procedure A; 




begin 




if i > llien 




iaegin 




A(i - 1); 




X ;= X + li; 




y := y - h; 




lineto{x, y); 




B{i - 1); 




X := X + 2 * h; 




lineto(x. y); 




D{i - 1); 




X := X + h; 




y := y + h; 




lineto(x, y);, 




A(i - 1) 




end 




end; 




procedure B; 




begin 




if i > then 




begin 




B(i - 1); 




X := X - h; 




y := y - h; 




lineto(x, y); 




C{i - 1); 




y := y - 2 • h; 




linBto{x, y}; 




A(i - 1); 




X := X + h; 




y := y ■ h; 




lineto(x, y); 




B(i - 1) 




end 




end; 




procedure C; 




begin 




if i > then 




begin 




C(i - 1); 




X ;= X - h; 




y := y + h; 




lineto(x, y); 




D{i ■ 1); 




X := X - 2 * h; 
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lineto{x. y); 




B(i - 1); 




X :- X ■ h; 




y :. y - h; 




lin8to(x, y); 




C(i - 1) 


end 




end; 




procedure D; 




begin 




if i > liien 




begin 






D(i - 1); 




X := X + ti; 




y :. y t h; 




linato(x. y); 




A(i - 1); 




y - y + 2 • 




l[neto(x, y); 




C(i - 1); 




X := X - li; 




y :- y * h; 




lineto(x, y); 




D(i - 1) 



ShowDrawing; 

i := 0; 

h := hO div 4; 

xO := 2 * h; 

yO := 3 * h; 

rapeat 

begin 



xO := xO - h; 

h := h div 2; 
yO := yO + h; 
X := xO; 
y := yO; 
moveto(x, y); 
A{i); 

X := X + h; 
y := y - h; 
lineto(x, y); 
B{i); 



lineto(x, y); 
C(i); 





X := X - h; 




y := y + h; 




linelo(x. y); 




D(i); 




X := X + h; 




y := y + h; 




lineto(x, y); 




end; 




until i = ordre 




end. 




4. UN EXEMPLE MATHEMATIQUE 




II en falfait un, ne nous le reprochez pas- Nous aliens donner un exemple court : la 




generation de nombres premiers. Un nombre est premier s'il ne peut etre diviseque par 




1 et par lui-meme- A partir de cette definition, il vient le programme suivant : 




program Premier_recijrslf; 




var 




p : integer; 




function teste (n, p : integer) : boolean; 




begin 




if sqr(n) > p then 




teste := true 




else 




begin 




if p mod n = then 




teste := false 




else if n > 2 then 




teste := teste(n + 2, p) 




else 




teste := tBste(n + 1, p); 




end; 




end; 




begin 




repeat 




write('introduire un entier : '); 




readln(p); 




if p <> then 




begin 




if teste(2. p) then 




writBln('ce nombre est premier') 




else 




write!n{' cs nombre n est pas premier '); 




writeln; 




writein; 




end; 




until p = 0; 




end. 




Ce programme calcule done si un nombre est premier ou non, en le divisant par 2 et par 




tous les nombres impairs inferieurs asa racine carree. Ce critere est suffisant puisque 
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si un nombre plus grand que sa racine carree le divise, un nombre plus petit le divisera 
aussi. En effet, soit p le nombre. S'il existe b, plus grand que \fp, qui divise p, alors il 
existe a tel que : 

a . b = p. 
Si a est plus grand que \fp. a.b est forcement plus grand que p, done a est plus petit 
que p et la recherche I'aura trouvee avant de trouver b. Pour un nombre p, on regarde 
s'il est divisible par 2, puis par 3, puis par la suite des nombres impairs. Les nombres 
pairs sent elimines par le fait que si un nombre pair divise p, 2 divise p, II est possible 
den faire autani avec les multiples de 3, 5,... mais la relation donnant les nombres a 
tester devient plus compliquee. 



5. CONCLUSION 

On le voit, la notion de recursivite est d'une grande importance, tant pratique que 
theorique. Elle est a la base de nombreux algorithmes tres importants, tels celui dit de 
"backtracking, ou de retour arriere. C'est Talgorithme utilise pour le programme des 
dames sur I'echiquier. II consiste a avancer dans la solution tant que c'est possible, 
puis, en cas de blocage, de revenir en arriere d'un cran, et de recommencer la 
recherche depuis ce point, dans une autre direction. Get algorithme est 
particulieremenf utilise dans les applications actuelles en intelligence artificielle, II est, 
en regie generale, tres commode pour la redaction de programmes clairs. Par contre, il 
devient plus delicat de suivre le deroulement precis du programme. Tout comme la 
recursivite, il est surtout utile lorsque la solution d'un probleme n'est pas directement 
accessible par un algorithme. Ce qui signifie que la recursivite est particulierement 
pratique lorsqu'on n'a aucune idee de ce que Ton cherche. 

Le mois prochain, nous aborderons une autre notion capitale en Pascal, les pointeurs, 
et I'allocation dynamique de memoire. Ces elements torment la pierre angulaire des 
langages evolues et leur implantation premiere a ete faite pour Pascal, puis sur 
d'autres, mais avec plus ou moins de succes quant a la facilite d'emploi ou la gestion 
de la I ■ 



6. DES EXERCICES 

1. Les tours de Hanoi' 

Voila un probleme passionnant, derive d'une tres saine occupation des moines d'un 
monastere vietnamien. Vous disposez de trois poteaux et de n disques perces, tous de 
taille differente, Vous pouvez placer un disque a chaque fois et ne le reposer que sur 
un disque plus grand. Si vous partez avec tous les disques sur un poteau dun cote, il 
faut les amener tous sur le poteau oppose. 
La position de depart : 



^L, 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 
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et la position- d'arrivee ; 



.-^ 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 


1 1 



Un mouvemeni possible : de la position 



L'exercice est de programmer cet amusant jeu a I'aide d'un algorithime recursif, pour 
un nombre de disque qui sera mis en constant© dans le programme, ou demande au 
debut de ['execution. 

Un detail : les moines deplacent 64 disques, et la legende veut que lorsque ce travaii 
sera termine, le monde verra sa fin. II faut dire que dans ie cas de 64 disques, ie temps 
{manuel !) est tout a fait considerable. Avec 8 disques, un Pascal compiie demande 
une bonne demi-douzaine de minutes. 
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2. Calculer la limite de I'expression : 



>/2 



^' 



.y/2 



■^' 



V2' 



autrement dit, racJne de deux, a la puissance racine de deux,... 

3. Un programme de tri recursif 

Une methode de tri consiste a couper la liste en deux, au centre, puis a refaire de 
meme sur chaque sous-liste, jusqu'a ce qu'il n'y ail qu'un ou deux elements dans la 
liste courante que Ton ordonne, puis on reunit ces listes deux par deux, et on les 
ordonne, etc. Faire le programme correspondant. Un exemple sur cinq valeurs ; 



5 2 14 3 




52 1 


43 


52 


1 


25 


1 34 


25 


1 3 4 


2 5 134 




12 345 





Bonne chiance. 
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Nous reprenons I'etude des mouvements du curseur de i'editeur de texte a 
I'endroit ou nous I'avions laisse le mois dernier. Nous y avons inclus le descriptif 
en pseudo-langage des routines qui s'y rapportent. il vous faudra encore un peu 
de patience pour venir a bout de ce projet. ii nous reste en effet a decrire 
queiques routines essentielles et surtout a effectuer i'assemblage des divers 
elements pour enfin obtenir lapplication souhaitee (on peut I'esperer). 
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4. Mouvements du curseur (suite) 
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4. MOUVEMENTS DU CURSEUR (SUITE) 

GAUCHE : 

debu t p race dure 

X: = X - 1 ; (un cran a gauche) 

si (X^O) aiors 

(on est sur le bord de lecran) 

debut S( 

Y: - Y - 1 ; (il taut passer a la ligne precedente) 
sMY-0) a/ors 

(on est en Inaut, il faut done decaler) 

debut si 

DEF„HAUT_BAS(err) ; 

Y:=1 ; 

fin SI 

s; (err est faux) alars 

(aj on n'est pas en haul du bufler) 
■ (il faut done bouger le curseur) 

debut si 

(on se replace en fin de ligne) 

X: =long (Bufferiprem ligne + Y- 1) ) ; 

sinon 
X: ^ r ; 
ERREUR : (beep et pas de mouvement) 

fin. si 

fin si 

tin procedure 

DROITE : 

debut procedure 

X: = X + 1 ; (un cran a droite) 

si (X > long {bufter(preni ligne + Y- 1) ] } alors 

(on est a la fin de la ligne) 

debut si 

Y: - Y + 1 ; (il faut passer a la ligne suivante) 
S' (Y > nb ligne) alors 

(on est en bas, il faut done decaler) 

debut si 

DEF_BAS_HAUT(err) ; 

Y: = nb_ligne: 

tin s' 

s' (err est vrai) alors 

(si on est en bas du buffer) 

(il faut done reprendre I'ancienne place du cur; 

debut si 

X: - X - 1 ; (on se replace en fin de ligne) 
ERREUR ; (beep et pas de mouvement) 



sinon 

X: = 1 ; (on est en debut de ligne sujvante) 

lin si 

lin^si 
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lin procedure 




Remarque sur GAUCHE ET DROITE : 




On s'apergoit que les routines DEF_HAUT_BAS et DEF_BAS_HAUT ne traitent 
pas directement I'erreur. II faut done ie faire dans les routines appelantes. L'avantage 
de celte solution est de differencier les operations a effecluer en retour de I'appel : 
nous verrons pour les procedures HAUT et BAS, Unteret de ce traitement differe. 




MONTE : 




debut^procedure 
Y;- Y-1 ; 
s/(Y^O)a;Drs 




(il faut directement appeler DEF_HAUT_BAS) 




debut_st 

DEF_HAUT_BAS(err) ; 

Y: = 1 ; (on reste en tiaut de lecran) 

si (err est vrai) a/ors 




(on ne fait rien et on genere une erreur) 




debutsi 

ERREUR ; 
/fn_Sf 




fin^si 




(calcul de la nouvelle position du curseur) 




XO: = long lbuffer(prem_ligne + Y - 1 ) ) ; 




si (X > XO) a;ors 




(11 faut mettre alors Ie curseur en fin de ligne) 

(c'est en fait une convention, mais elle simplifie la gestion) 




debut^.si 

X: ^ XO + 1 ; (apres Ie dernier caractere) 
/;>7_Sf 
lin^jfocedure 




DESCENDRE : 




debut_procedure 
Y:= Y+1 ; 
Sf (Y > nb_ligne) alors 




(il faut directement appeler DEF_BA3 HAUT) 




debut si 

DEF_BAS_HAUT(err) ; 

Y: = nb_ligne (on reste en bas de I'ecran) 

si (err est vrai) alors 




(on ne fait rien et on genere une erreur) 
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debut si 

ERREUR : 
fin-^si 
fin si 

(calcul de la nouvelle position du curseur) 

X0:=/o;7g {bufferiprem_ligne + Y- 1) ) ; 
si (X > XO) aiors 

(il faui mettre alars le curseur en fin de ligne) 

(c'est en fait une convention, mais elle simplifie la gestion) 



(apres le dernier caractere) 



debut si 

X:-X0 + 1 ; 

fin si 

fin procedure 

(Rappel : nb ligne est le nombre de lignes de I'ecran et prem ligne le n° de la 

premiere ligne affictiee du buffer.) 

II ne nous reste plus qua ecrire les deux routines de defilement. 
DEF_HAUT_BAS : 

debut procedure 

prem ligne: = prem ligne -1 ; 

s' (prem ligne -0) aiors 



fait rien) 
{on restitue I'ancienne valeur) 



(on est en haut du buffer done 

debut si 

prem ligne: - 1 ; 

err: - vrai ; 

sinon 
err: - faux 

(on affiche tout I'ecran) 

etiacement ; (routine standard d'effacement d'ecran) 

(boucle sur les nb ligne lignes a affictier) 

pouriaiiant de prem ligne a (prem .ligne + nb ligne- 1) 



debut pour 

position ecrand, 

ecriribuffer{i) ) ; 

fin pour 



- prem__ligne+ 1) ; 



fin^si 

DEF_BAS_HAUT : 

debut procedure 

prem_ligne: = prem ligne +1 ; 

si (prem ligne > nb occup) aiors 

(on est bas du buffer done on ne 
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debut si 

prem__ligne: = nb occup ; 

err: - vrai ; 

err-taux ; 



(on restitue I'ancienne valeur) 



sinon 



(on affiche tout I'ecran) 

effacement ; (routine standard d'effacement d'ecran) 

(boucle sur les nb ligrie lignes a afficher) 

pour i allant de prem ligne a (prem ligne + nb Ijgne- 1) 

debut pour 

position ecrand, t- prem_ligne + 1) 

ec/-/Hbuffer(i) ) ; 
fin pour 

fin_si 

rappel : nb^occup est le nombre total de lignes utilisees du buffer. 

CONCLUSION 

II nous reste done a etudier quelques routines comme celles de destructions 
(caracteres, lignes), mais aussi celle fondamentale d'insertion d'une nouvelle ligne ; 
elle sera atfectee bien evidemment a la touche "return". C'est cette derniere 
procedure qui sera notamment chargee de detecler un depassement de capacite du 
buffer. Nous verrons aussi qu'elle provoque de nombreuses operations tant sur ce 
buffer que sur I'affichage (defilement partiel de I'ecran, modificatfon des lignes, etc.). 
Nous pourrons ensuite decrire en detail le fonctionnement general du programme 
(nous fournirons le programme source en Pascal et en Basic de la routine CORPS). 
Enfin, nous reviendrons quelque peu sur les details des differentes routines que nous 
presentons ce mois-ci pour permettre de mieux comprendre le comment et le pourquoi 
de nos choix. 



DIALOGUE 
AVEC NOS LECTEURS 



Ce mojs-ci, nous ne traiterons que la resoluiion du troisieme degre. Nous I'avons 
adaptee a un probleme mathematique souvent rencontre dans des applications 
pratiques : la determination des valeurs propres et vecteurs propres d'une matnce 
3x3 symethque. Pour des raisons de place, nous ne vous soumettrons que la solution 
Pascal, mais la traduction en Basic n'est pas dune grande difficulte. 

I. VALEURS PROPRES ET VECTEURS PROPRES 

Nous vous prions de nous excuser du caractere exagerement "matheux» de cet 

exercice et nous bornerons a rappeler les proprietes des vecteurs propres et valeurs 

propres, considerant que la theorie mathematique sous-jacente n'est pas de notre 

domajne. 

Toute matrjce M peut se mettre sous la forme d'un produit de trois matrices. 

M - P-'AP ouP-i .P = I 
I est la matrice identite car elle a des zeros partout sauf sur la diagonale ou il y a des 1 
et le produit de M . I - M. 

A est une matrice nulle sauf sur la diagonale ou se trouvent toutes ses valeurs propres. 
Pour determiner les valeurs propres d'une matrice, on resoud I'equation 
M - A.I = 0, equation en K du degre de la taille de la matrice. 
Ici, c'est bien notre equation du troisieme degre. 

Apres cela, a cliaque valeur propre correspond un vecteur propre, vecteur qui reste 
invariant a la transformation par M - A, I oii X, est la i^"-^ valeur propre, 

II. MISE EN OEUVRE 

1. Ouelques remarques preliminaires 

Ce programme a ete prevu pour calculer vite et bien, c'est-a-dire qu'il ne peut se 

permettre des resultats fantaisistes ni pousser tres loin la precision, ceci necessitant 

generalement beaucoup trop de calculs. 

Ainsi, on ne teste pas par rapport a mais a un epsilon donne. De plus, la resolution du 

troisieme degre est hybride entre la solution purement algebrique et la metfiode 

tngonometrique. 

2. Commentaires de programmation 

- II manque de commentaires ! Exemple-type de programme de imatheux». 

- On determine I'equation A^ + Bk^ + CA + D d'ou Ton sort x^ + px + q. 

- La matrice est symetrique done toutes les racines sont reelles, 

- Le type REEL - REAL peut faire rire mais si vous voulez passer en double precision, 
vous n'avez qu'a le changer une seule fois dans le programme, c'est tres agreable. 



{ Module de calcul de vecteura propres et valeurs proprea ) 
PROGRfiM CALCUL_VECTEURS ; 

Const 

d_pi_3_3 = 2.0943951 ; ( deux * pi / trois ) 
epsilon = 0.00001 ; { zero de precision ) 
n_vol_raax = 100 ; 



Type 

solutions ..= (sirapleg, doubles, triples) ; 

REEL = REAL ,- 

T_MATRICE = ARRAY [1..3,1..3] OF REEL ; 

T_VECTEUR = ARRAY [1..3] OF REEL ; 

T_REEL_VOL = ARRAY [0 . .N_VOL_MAX] OF REEL 
T_INTEGER_VOL = ARRAY [0 . .N_VOL_MAX] OF INTEGER 



TEXTE = ARRAY [1..8] OF CHAR 



ok ; boolean ; 

i : integer ; 

matrice , vect_prop : T_MATRICE 

val_prop : T_VECTEUR ; 



Function Arc_cos ( X : REEL ) : REEL ; 

Begin 

Arc_cos := ARCCOS { X ) ; 
End ; 



Function Cub : 



Calcul de la racine cubique d' un reel ; 

si celui-ci est negatif il rend la valeur negative }^ 



signe := false ; 
IF X < THEN 
begin 

X := - X ; 
signe := true ; 
end ; 
result := EXP { LN ( X ) / 3 . ) 
IF signe THEN result := - result 
Cub_root := result ; 
End ; 



.J^.oJ' ^ ^^-^ ^ 



OUT val_propres 



T_MATRICE ; 
T_VECTEUR ; 
solutions ) : BOOLEAN 



j : intege 

C , D , p 

BOOLEAN 



racine , theta 
ARRAY [1..6,1..6] OF REEL 



discriminant 



f 



ok := true ; 

for i := 1 to 3 do 

for j := 1 to 3 do 
begin 

matr_t[i,j] := matr_A[i, j] ,- 
matr_t[i+3, j] := matr_A[i,j] ; 
matr_t [i, j+3] := matr_A[i,j] ; 
matr_t [i+3, j+3] := raatr_A[i, j] ; 
end ; 
B := 0.0 ; 

for i := 1 to 3 do B := B - matr_t[i,i] ; 
C := 0.0 ; 
for i := 1 to 3 do 

C := C + matr_it[2 *i-l,2*i-l] 
- matr_t[i + l,i] * matr_t[i,i 
D := 0.0 ,- 
for i := 1 to 3 do 
begin 

P := 1 ; 

for j := 1 to 3 do 

p := p * matr_t[i + j - l,j] ; 



matr_t [2 * i,2 * i] 
+ 1] ; 



3 downto 1 do 
p * matr_t [i - 



j + 3,j] ; 



end ; 
p := { 3.0 * C - SQR ( B ) ) / 3.0 ; 

q := ( 2.0 * B * B * B - 9.0 * B * C + 27.0 * D ) / 27.0 
discriminant :=q*q/ 4.0 +p *p*p/ 27.0 ; 
IF ABS { q ) < 1 THEN test := epsilon 

ELSE test -.^ 0.0000001 * q * q ; 
IF discriminant > test THEN ok ;= false 

ELSE IF discriminant > - test THEN 
begin 

racine := 2 * cub_root ( - q / 2.0 ) ; 

B := - B / 3.0 ,- 

x[l] := racine + B ; 

x[2] := { - racine / 2.0 ) + B ; 

x[3] := x[2] ,- 

IF racine < test THEN val_propre3 : = triples 

ELSE val_propre3 := doubles ; 
end 

ELSE { discriminant > ) 
begin ' 

racine := 2.0 * SQRT ( - p / 3.0 ) ; 

theta := arc_cos { 3.0 / p * q / racine) / 3.0 ; 

x[l] := racine * COS ( theta ) - B / 3.0 ; 

x[2] := racine * COS ( theta + d_pi_3_3 } - B / 3.0 ; 

x[3] := racine * COS ( theta + 2 * d_pi_s_3 ) - B / 3. 

val_propres := simples ; 
end ,- 



Valeur3_propres := ok ; 




End ; 




^ - — _ 

Function Calcul_vect_propres ( matr A : T MRTRICE ; 


J 


OUT val_prop : T VECTEUR ; 




OUT vect__prop : T MATRICE ) : BOOLEAN ; EXTERN ; 


Var 




i , j , k : integer ; 




determinant , norms , verif , seuil : REEL ; 




val_propres : solutions ; 




matr t : T MATRICE ; 




ok ; BOOLEAN ; 




Begin 




ok := valeur3_propre3 { matr A , val prop , val propres ) ; 




seuil := 0.0 ; 




for i := 1 to 3 do seuil := seuil + ABS ( val_prop[i] ) ; 




seuil := 0.0001 * seuil ; 




IF val_jjropre3 = simples THEN 




for i := 1 to 3 do 




begin 




for j := 1 to 3 do 




for k := 1 to 3 do 




matr t [ j , k ] := matr A [ j , k ] ; 




for k := 1 to 3 do 




matr t [ k , k ] := matr t [ k , k ] - val_prop 


[ 1 ] ; 


vect_prop [ 3 , i ] := 1.0 ; 




determinant := matr t [ 1 , 1 ] * matr t [2,2] 




- matr t [ 2 , 1 ] * matr t [ 1 , 2 


; 


IF ABS ( determinant ) > epsilon THEN 




begin 




vect_prop [ 1 , i ] := ( matr t [ 2 , 3 ] * matr t [ 1 , 


2 ] 


- matr t [ 1 , 3 ] * matr t [ 2 , 2 


] ) / determinant ,- 


vect_prop [ 2 , i ] := < matr t [ 1 , 3 ] * matr t [ 2 , 


1 ] 


- matr t [ 2 , 3 ] * matr t [ 1 , 1 


] ) / determinant ; 


verif := 0.0 ; 




for j := 1 to 3 do verif := verif + matr t [ 3 , j ] * v 


Gt_prop [ j , i ] ; 


end 




ELSE 




verif := 1.0 ; 




IF ABS ( verif ) > seuil THEN 




begin 




vect_prop [ 2 , i ] : = 1 . ; 




determinant := matr t [ 1 , 1 ] * matr t [ 3 , 3 ] 




- matr t [ 3 , 1 ] * matr t [ 1 , 3 ] ; 




IF ABS ( determinant ) > epsilon THEN 




begin 




vect_prop [1,1] := ( matr t [ 3 , 2 ] * matr t [ 


1,3] 


- matr t [ 3 , 3 ] * matr t [ 1 


, 2 ] ) / determina 


vect_prop [ 3 , i ] := ( matr t [ 1 , 2 ] * matr t [ 


3,1] 


- matr t [ 3 , 2 ] « matr t [ 1 


, 1 ] ) / determina 


verif := 0.0 ; 




for j := 1 to 3 do verif := verif + matr t [ 2 , j ] 


* vect_prop [ j , i 


end ; 




end ; 




IF ABS < verif ) > seuil THEN 




begin 




vect_prop [ 1 , i ] := 1.0 ; 




determinant := matr_t [2,2]* matr_t [3,3] 









- matr_t [3,2]* matr_t [2,3]; 
IF ABS { determinant ) > epsilon THEN 
begin 

vect_prop [ 2 , i ] := ( matr_t [3,1]* matr_t [2,3] 

- matr_t [3,3]* matr_t [2,1])/ deterra 
vect_prop [ 3 , i ] := { matr_t [3,1]* matr_t [2,2] 

- matr_t [3,2]* matr_t [2,1])/ determ 
verif := 0.0 : 

for j := 1 to 3 do verif := verif + matr_t [ 1 , j ] * vect_prop [ j 
end ; 



end ; 

IF ABS ( \ 

norme 
for j 
norms 



ELSE 
begi 



srif ) < seuil THEN 

= 0.0 ,- 

= 1 to 3 do norme := norme 

= SQRT ( norme ) ; 

= 1 to 3 do vect_prop [ j 



SQR ( vect_prop 
i ] := vect_prop 



] ) 
] / 



riteln (' pas de vecteur propre ' ) ; 
ok := false ; 
end ; 
end 
ELSE IF val_propres = doubles THEN 
begin 

for j := 1 to 2 do 

for k := 1 to 3 do 

matr_t [ j , k ] := matr_A [ j , k ] ; 
vect_prop [3, 1 ] := 1.0 ; 
for k := 1 to 2 do 

matr_t [ k , k ] := riiatr_t [ k , k ] - val_prop 
determinant := raatr_t [1,1]* matr_t [2,2] 

- matr_t f 2 , 1 ] * matr_t [1,2] ; 
vect_prop [1,1] ;= { matr_t [2,3]* matr_ 

- matr_t [1,3]* matr_t [2,2] ) / determinant 
vect_prop [2,1] := ( matr_t [1,3]* matr_t [2,1] 

- matr_t [2,3]* matr_t [1,1])/ determinant 
for k := 1 to 2 do 

matr_t [ k , k ] := matr_R [ k , 



1,2] 



vect_prop [ 1 

vect_prop [1,3] 

vect_prop [2,2] 

veGt_prop [2,3] 



= 1.0 
= 0.0 
= 0.0 
= 1.0 



k ] 



■al_prop [ 2 ] 



WHILE ( i < 4 ) and 


( 


matr t [ i , 1 ] 


* matr t [ i , 3 ] =0 


) DO 


i := i + 1 ; 










IF i < 4 THEN 










vect_prop [ 3 , 


2 


:= - matr_t [ 


i , 1 ] / matr_t [ i , 


i J 


vect_prop [ 3 , 
i := 1 ; 


2 


:= ; 






WHILE ( i < 4 ) and 


f 


matr t[ i , 2 ] 


* matr t[ i , 3 ] =0 


) DO 


i := i + 1 ; 










IF i < 4 THEN 










vect_prop [ 3 , 


3 


:= - roatr_t [ 


i , 2 ] / matr_t [ i , 


3 I 


vect_prop [ 3 , 
for i := 1 to 3 do 


3 


:= ; 






begin 




















for j := 1 to 3 


do 


norme := norme 


+ SQR ( vect_prop [ j 


, 1 


norrae := SQRT ( 


norme ) ; 






for j := 1 to 3 
end ; 


do 


vect_prop [ j 


i ] := vect_prop [ j 


, 1 



ELSE 
begin 

for i := 1 to 3 do 






for j := 1 to 3 do 






IF 1 ^ j THEN v6Ct_prop 
ELSE vect_prop 


i , j ] : 
i , j ] : 


= 1.0 
= 0.0 ; 


Calcul vect_propre3 := ok ; 
End ; 






Begin { Programme Principal ) 






ok := Calcul_vect_propres ( matrice , 


val_prop 


vectjjrop ) 



f 



End. 

M. Michel Auchere nous a envoye trois petits programmes de traces de courbes qui 
sont tres interessants en tant que "benchmarks^ graphiques pour evaluer les 
performances de uotre machine, 

III. BENCHMARKS GRAPHIQUES 

I. epicycloTdes 

5 REM RAYON DU GALET R 

10 R = l 

20 INPUT -RAYON DE LA PISTE" ; P 

30 CLS 

40 FOR T^O TO 2 * PI * R STEP , 02 

50 RAD 

60 X = (P + R) * SIN(T)-R * SIN(T * (1+P/RI] 

70 Y = (P + R) * COS(T)-R * COS[T -f (1 + P/R)) 

80 PLOT 15 * X , 15 * Y 

90 NEXT 

100 PLOTO , -200 

110 DRAWO , 200 

120 PLOT -320 , 

130 DRAW 320 , 

140 GOTO 140 

II. HYPOCYCLOIDES 

5 REM RAYON DU GALET R 

10 R=1 

20 INPUT "RAYON DE LA PISTE" ; P 

30 CLS 

40 FOR T ^ TO 2 t PI * R STEP , 02 

50 RAD 

60 X = (P-R) * COS(T}+R * COS(T ^ (P/R-1)) 

70 Y = (P-R) t SIN(T)-R t SIN(T * (P/R-1)) 

80 PLOT 20 X , 20 Y 

90 NEXT 

100 PLOTO , -200 

110 DRAWO , 200 

120 PLOT -320 , 

130 DRAW 320 , 

140 GOTO 140 

III. CYCLOIDES 

5 INPUT 'RAYON' ; R 

10 CLS 

20 PLOTO , 100 

30 DRAW 640 , 100 

40 FOR T = 0TOa * PI * R STEP , 1 

50 RAO 

60 X = T-SIN(T) 

70 Y = 1 - COS(T) 

80 PLOT 25 * X , 100 * Y + 100 

90 NEXT T 

100 GOTO 100 
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IV. LES FRACTALS 

Nous allons aujourd'hui uous presenter un sujet qui passionne beaucoup de 
scientjfiques et autant de non-scientifiques : les Fractals (et non pas -fractaux- car ce 
nom est Jssu de ianglais). 

En quoi consiste un fractal ? C'est simplement un segment qui est remplace par un 
motif de meme longueur que le dit segment ; ce motif etant lui-meme uniquement 
constitile de segments de longueur identique, cette longueur pouvant toutefois differer 
de la longueur du segment originel. 




Une fois effecluee la substitution, on la recommence sur les nouveaux segments. 




.„/xJ \ 




De proctie en procfie, on obtient un dessin de plus en plus sophistique, II est alors 
interessant de definir la figure de depart non pas comme un seul segment mais comme 
un groupe de segments constituant une figure simple (triangle equilateral, carre, 
pentagone, etc.) ne possedant comme seule contrainte que la longueur invariante de 
ses composants. 
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Le dernjer sujet d' etude reste la definition du modele de subslilution, Au conlraiiu 
que I' on pourrait croire, les plus complexes ne sont pas toujours les plus jolis. 
s en trouvez un paraissant original, enuoyez-le nous. 



Du point de vue programmation, la recursivite du processus est evidente, si le 
programme est aise en BASIC, il devient enfantin en PASCAL Bon courage. 



CESrr ARRIVE 
DEMAIN 

(en direct de notre envoye permanent dans la Silicon Valley) 



A I'aide de materiels informatiques somme toute 
assez rudimentaires, a ete menee une etude fort inte- 
ressante sur la vigilance des pilotes de lignes lors des 
grands trajets intercontinentaux. Les conclusions 
sont a la fois instructives et inquietantes. II ressort de 
ce travail que les pilotes sont en etat de sous- 
vigilance la plupart du temps, en raison de t'inadapta- 
tion du corps aUx decalages horaires, et surtout a la 
multiplication de ces decalages dans les deux sens. 
Jours raccourcis puis allonges sont epuisants pour 
I'homnie. L'etude qui portait sur plusieurs compa- 
gnies, montre que la jeunesse des equipages est un 
critere primordial de securite, la baisse de performan- 
ces etant particulierement nette apres 35 ans. Au pal- 
mares de la securite vient d'ailleurs en tete Air New 
Zealand, qui met ses equipages a la retraite d'office a 
40 ans. Les compagnies americaines viennent en 
queue de classement, car aux USA le principe de la 
retraite obligatoire est illegal. La France est dans une 
moyenne que certains trouveront fionorables. 

Un developpeur propose un petit bijou de programme 
et d'electronique permettant de faire tourner sur un 
Atari ST la plupart des programmes du MAC, Pour 
quun tel programme tourne sur Atari, il suffit quil soit 
programme »correctement» sur le Mac, c'est-a-dire 
qu'il suive a la lettre I'interface Apple. Si c'est le cas, 



vous aurez le bonheur de le voir tourner sur votre ST 
et en plus bien plus vite que sur un Mac, En effet, 
I'horloge interne du processeur de ['Atari est plus 
rapide. Comment une telle prouesse est-elle possi- 
ble ? C'est simple en ttieorie, puisque les deux ordi- 
nateurs ont le meme cceur, le 68000. En pratique, 
c'est moins immediat et, en partioulier, il vous faudra 
acheter les ROM de I'Apple, le fabricant de I'emuia- 
teur ne voulant pas prendre le risque de poursuites 
judiciaires de la part d' Apple. Mais ces ROM sont dis- 
ponibles pour une trentaine de dollars chez un bon 
nombre de detaillants. En tout, pour moins de deux 
cents dollars, vous aurez un Mac en plus de votre 
Atari. Atari favori, desole, nest pas une rime riche. 

Voila une idee simple, dans sa formulation tout au 
moins, qui pourrait bien etre la cle de la bureautique 
du futur proche. Borland va prochainement proposer 
un traitement de texte qui permet de ctioisir son mode 
de fonctionnement. Cela signifie que les usagers 
habituels de Wordstar pourront choisir un environne- 
ment Wordstar complet, et il en va de meme pour la 
plupart des grands traiiements de textes populaires 
(Wordstar, Word Perfect, Word et Multimate dans un 
premier temps). II est clair que c'est la une bonne idee 
puisque cela permet a une societe d'acquenr ce pro- 
gramme sans s'inquieter de la formation qu'ont regue 



ses employes, lis connaissent tous I'un au moins de 
ces programmes. Ce produit est prevu pour les com- 
patibles PC, cela va de soi, puisque sur les autres 
machines, Mac, Amiga et Atari, I'interface est figee 
plus ou moins par la machine elle-meme et le temps 
d'adaptation est nettement raccourci. 

Une petite revolution vient de se produire sur le mar- 
che des imprimantes laser. L'un des deux fabricants 
de cette technologie, Canon, vieni de mettre au point 
un precede permettant de realiser une imprimante 
pour la moitie du prix des materiels actuels. Seule 
contrepartie, le temps d'impression est moins bon, de 
I'ordre de 6 pages par minute au lieu de 8 actuelles, 
Mais cela permet de mettre en vente des machines 
valant moins de 2 000 $ au lieu des 4 000 a 5 000 du 
moment. L'autre fabricant, Ricoh, propose deja des 
machines dans ces gammes de prix, ayant egalement 
une Vitesse de 6 pages par minute, mais pour une 
resolution moins bonne, II s'agit done bien d'un nou- 
veau pas franchi vers une imprimante laser bon mar- 
che, au moment ou la demande se fait de plus en plus 
grande pour ces substituts extremement economi- 
ques de I'lmpression traditionnelle. Une imprimante a 
laser pour 2 000 $, cela n'est pas trop cher compara- 
tivement a une impnmante traditionnelle quaiite cour- 
rler qui nen vaut pas loin de 1 000 . 

C'est lepoque des annonces de nouvelles machines. 
Tout comme le Seaujolais, I'ordinateur nouveau est 
arrive chez tous les fabricants, Tous ou presque. En 
effet, ATT, grand rival americain d'IBM sur le creneau 
des compatibles, doit renoncer a la sortie de sa nou- 
velle gamme pour cause de... non compatibilite. On 
pourrait croire que ce type de ridicule peripetie ne 
pourrait se produire que chez Bull. Pas du tout, Mais, 
il est quand meme surprenant qu'un tel fabricant de 
compatibles, bien rode, rencontre un probleme aussi 
grotesque, peu de jours avant la mise en vente de sa 
nouvelle gamme. En fait la compatibilite de ses pro- 
duits serait de I'ordre de 60 %, ce qui est absolument 
inacceptable sur un marche ou les vrais compatibles 
sont legions. 

Pour parier des autres nouveaules, en voici une 
rapide liste des principales. Atari sort un PC pour 
500 $, disposant de la compatibilite avec le XT, le 
milieu de gamme IBM. Seule limitation reelle, il n'a pas 
de possibilite d'extension, un peu comme I'Atari ST. 
Compaq propose une nouvelle version de portable, 
plus leger et un peu plus puissant, utilisant un proces- 
seur 80286, le processeur a la mode pour les nou- 
veaux PC. Apple propose un "file server- base sur 
Appletalk, le reseau maison, permettant egalement de 
se connecter sur un reseau de PC. Un seul probleme, 
mais un peu gros, il demande un Mac uniquement 
pour le faire tourner, ce qui signifie quand meme un 
systeme consequent pour un reseau. Grid a montre la 
semaine derniere un portable uraiment beau et puis- 



sant, compatible AT, disposant en standard de plus 
de 1 Mo et d'un disque 3,5 pouce de 720 Ko. Le tout 
pour moins de 1 700 $, ce qui est competitif. Enfin, 
IBM annonce trois nouvelles machines, dont un bas 
de gamme au prix de 700 $, ce qui est plus cher que 
les milieu-haul de gamme de certains compatibles et 
deux autres ordinateurs tres interessants. Le premier 
est base sur le 80286 et devrait remplacer le AT sous 
peu, il dispose en standard de la couleur et possede 
tous les plus actuels, dont les meilleurs systemes 
d'exploilation du moment pour PC, en memoire morte. 
II sera, helas, sans doute tres cher, trop peut-etre 
pour etre competitif. Enfin, IBM propose un appareil 
base sur le S0386, la derniere petite merveille d'Intel, 
ultra-rapide et permettant de gerer une tres impor- 
tante memoire. Ce dernier sera pres dans peu de 
temps, mais peu de details sont encore connus, 

Le Mac s'est taille pour I'instant la part du lion dans un 
domaine nouveau, la micro-impression, traduction 
personnelle et libre de "Desktop Publishing", Ses 
possibilites graphiques liees a un systeme d'exploita- 
tion simple, le rendaient particulierement"apte a ce 
type d'applications. Mais, devant le developpement 
important du domaine, les compatibles PC entrent 
aussi sur le marche. En particulier, un programme rea- 
lise par un developpeur habitue au Mac, Aldus Corpo- 
ration, permet d'en faire autant ou presque qu'avec le 
meme produit sur le Mac. Des ameliorations ont 
meme ete apporlees, qui se retrouveront bientot sur 
la version Mac. Mais surtout, ce type de programmes 
peut tirer un grand profit de la vitesse des PC-AT et 
autres haut de gamme des compatibles PC, lis utili- 
sent en general Windows, une interface logicielle de 
Microsoft, qui transforme un PC en sorte de Mac, 
Windows est lent mais, sur un AT, cela n'est pas trop . 
sensible. Et sur un PC, vous pouvez avoir la couleur, 
Tous ces programmes sont disponibles et il faudra 
debourser 700 $, ce qui est enorme pour un particu- 
lier, mais peu pour une petite societe qui evitera ainsi 
les frais d'impression eleves pour des brochures sim- 
ples. 

II se propage une rumeur interessante ces derniers 
temps. IBM proposerait bientot une nouvelle gamme 
de PC. Rien de bien passionnant, pensez-vous. 
Erreur, car cette nouvelle gamme ne serait pas PC- 
compatible. Le monde a I'envers. Alors que croire ? II 
semble que la realite soil bien mesquine une fois de 
plus, A chaque fois qu'une rumeur semble prendre sa 
source chez IBM, c'est pour aider cette societe a 
prendre des parts de marche, ou tout au moins en 
perdre le moins possible avant la sortie d'un nouveau 
materiel. La derniere fois, c'etait avant la sortie du 
PC Jr. Tout le monde savait ou croyait savoir qu'un 
merveilleux ordinateur familial allait sortir et qu'il fallait 
attendre, plutot qu'acheter un autre produit. A cette 
epoque, la montagne avait accouche de la souris que 



Ion salt, et le Junior fut un echec retentissant, 
Aujourd'hui, la plupart des societes de grande et 
moyenne tallies semblent voulojr renouveler leur pare 
de compatibles PC, car (es progres en termes de 
vitesses et de puissances ont ete importants en un 
an. Que fait IBM ? II leur dit dattendre, par le biais de 
cette rumeur, Mais aussi, une contre-rumeur malefi- 
que se propage. Elle dit que le futur PC sera totale- 
ment incompatible non seulement avec les PC mais 
aussi avec les extensions existantes. Ceci veut dire 
qu'lBM souhaite re-etablir un monopole de fail sur les 
ordinateurs et sur les extensions en tous genres. En 
bref, tenter de reussir ce qui a ete manque la pre- 
miere fois, mais cette manceuvre attaque de front tou- 
tes les societes qui se soni equipees de materiels 
lourds et couteux sous la foi de la stabilisation 
qu'apportait le standard actuel PC, de meme que les 
societes produisant des interfaces et extensions 
pour ce standard. Affaire a suivre, 
Une grande evolution semble se dessiner en ce qui 
concerne les tableurs. Pendant dix ans, les enfants 
de VisiCalc, le premier du genre, se sont contentes 
de plagiat simple et peu inventif. Puis sont venus les 
integres, mais la partie calcul n'evoluait toujours pas. 
H semble que maintenant, la creativite soit a nouueau 
presents dans ce secteur de I'activite logicielle, Parmi 
les nouveautes, il faut signaler le grand nombre de 
programmes qui permettent d'ajouter des possibilites 
aux programmes existants. Ainsi, Hal, de Lotus, qui 
complete 1-2-3 de la meme societe, ou Note It, de 
Turner Hall, de nouveaux venus sur le marctie. 
Hal est une interface -intelligente- pour 1-2-3, per- 
mettent d'ajouter des commandos, de gerer le tout 
avec une plus grande simplicite, ce qui n'est pas un 
mal, et facilitant le contact avec I'utilisateur. C'est 
sans doute la raison de son nom, celui que portait 
I'ordinateur intelligent et capable de raisonnement du 
film "2001, Odyssee de rEspace-, Rappelons que 
Hal, dans le film, se detraque et finit par tuer. 
Mais il y a aussi des programmes qui proposent tout 
cela directement, plus bien d'autres choses encore, 
toutes bien npuvelles. Parmi ces programmes, le nou- 
veau Silk, de Daybreak Technologies, ou Trapeze, ce 
dernier pour le Mac. Ces programmes permettent 
d'automatiser un grand nombre de calculs, en propa- 
geant des formules a I'aide d'une simple touche, de 
surveiller revolution de certains resultats tout au long 
de I'elaboration de la feuille de calculs, ou de simuler 
ces resultats a I'aide d'une feuille specials, destinee 
a des essais numeriques. II est possible de choisir un 
resultat, puis de laisser le programme trouver les meil- 
leures donnees de depart permettant de reellement 
obtenir la solution "imposee". Done, un tableur 
devient un concurrent direct de programmes de simu- 
lations, ou de gestions numeriques. Silk perniet meme 
de modifier (un peu) la structure des donnees pour 
recuperer sous un format different des fichiiers venant 
d'un gros systeme. II est aussi possible de definirdes 



structures plus complexes que des nombres, par 
exemple des couples de nombres, des tableaux, et 
autres formes utiles dans divers types d'applications. 
II est possible de pister les problemes par suivi des 
calculs, ce qui permet d'eliminer la bete noire de ces 
programmes, les references circulaires, c'est-a-dire 
des cases que Ton calcule a partir d'autres, ces der- 
nieres ayant besoin des premieres, ce qui arrive sur 
les grosses feuilles, ou il arrive que la logique des 
enchainements soit delicate a decortiquer et ou toute 
modification devient delicate a effectuer Ces pro- 
grammes permettent aussi de sauver en permanence 
sur disque les commandes tapees et si un probleme 
fait planter le systeme, il est possible de reprendre ou 
Ion en etait. Enfin, Trapeze, tirant parti des possibili- 
tes de graphisme du Mac, permet de creer des cases 
ou des zones graphiques, C'est la une amelioration 
formidable, car avant, il fallait recuperer les resultats 
du tableur, les mettre dans un traitement de texte ou 
de graphiques, arranger le tout, puis imprimer. Avec 
Trapeze, tout peut etre fait dun seul coup. C'est en 
parliculier plus puissant qu'un logiciel integre, ou tout 
coliabite mais, en France, vous savez maintenant que 
cohabiter nest pas toujours une panacee. 

Un utilisateur de programme comme vous et moi en a 
eu assez, un jour, de se battre avec. Las de cherctier 
en vain apres avoir essaye dix tableurs et une bonne 
vingtaine de traitements de textes, il vient de publier 
une sorte de code du programmeur. Sept points a 
retenir : 

- pas de protection, 

- pas de programme d'installation de programme, ces 
programmes qui permettent de configurer le logiciel 
a votre systeme. Au logiciel de s' adapter, 

- Mise ajour des parties interfaces du logiciel par des 
commandes du programme et non par un pro- 
gramme annexe. Ceci permet de modifier les speci- 
fications sans sortir du programme, 

- Independance des gestions d'entrees-sorties vis- 
a-vis du programme, et ajout dans la documentation 
du programme de la description des commandes 
permettant de creer de nouvelles entrees-sorties 
pour des peripheriques a venir, 

- Un guide reference complet, c'est-a-dire un livre 
separe reserve a la description de cfiaque com- 
mande, 

- Aide a I'ecran en permanence, avec adaptation 
automatique a la situation du moment, 

- Interface systematique pour une souris pour les 
ordinateurs qui ne la proposent pas en standard. 

Avec toutes ces propositions, un programme pourra 
devenir un vrai plaisir, et non plus un cauchemar de 
I'utilisateur occasionnel. Reste a savoir si les deue- 
loppeurs suivront le chemin qui semble pourtant 
s'imposer. Le passe proche autorise a I'optimisme. 

Au mois prochain. 
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II y a bientot trois ans demarrait ce travail de fond. Plus de vingt auteurs 
etaient sollicites pour concentrer en trois tomes les techniques du son. Le 
premier tome vient de paraitre. II traite de FAcoustique fondamentale, des 
Sources acoustiques, de I Acoustique architecturale, de la Perception 
auditive, des .Notions tondamentales de I'Electricite, de 
I'Enregistrement magnetique ainsi que de la Tectinologie audio- 
numerique. 

L'equipe des plus grands specialistes actuals a ete animee par Denis 
Mercier. Ensemble, lis ont mis sur pied un ouvrage actuellement unique au 
monde. 
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ET LA TECHNIQUE ? 



Si rinformatique a ete, a I'origine, creee pour des besoins 
scientifiques ; il faut bien admettre que les applications de 
gestion ont tres nettement pris le dessus. Or depuis peu, il semble 
que nous arrivions vers una certaine saturation du marche. En effet, 
de gros clients sont deja bien servis I Ainsi les grands constructeurs 
reviennent-ils a leurs premieres amours. 

Rnalement, si les bureaux sont equipes, le moins que Ton puisse dire, 
c'est que les ateliers sent sous-equipes. C'est bien connu. Une 
societe de fabrication de materiel informatique ne peut faire des 
efforts que pour les marchies a fort potentiel de developpement 
economique. Aussi, apres quelques legers problemes, nombreux sont 
les fabricants qui ont decide de porter tous leurs efforts vers 
rinformatique industrielle. L'informatique peut s'implanter, dans une 
tres large mesure, dans le cycle de fabrication d'un objet 
quelconque. Qu'il s'agisse de C.A.O., de CF.A.O. ou de controle de 
la qualite en passant par la gestion des stocks, ii y a beaucoup a 
faire dans ce domaine. Comme toujours, c'est le militaire et 
I'aerospatiale qui entrainent ce long processus. II convient done, en 
partant des connaissances acquises dans ces activites, de 
democratiser les systemes informatiques techniques pour les rendre 
plus abordables envers I'industrie classique. II est evident que devant 
les modifications apportees par les marches internationaux, le 
controle de la qualite et ies couts de revient sont devenus de 
veritables outils de guerre economique. Ce n'est que grace a une 
forte technicite que les pays dits "developpes" pourront continuer a 
garder leur avance. L'informatique industrielle est prete pour jouer 
son role. 



dBase 



Charles-Henry Delaleu 



Au hit-parade des progiciels vendus en France, dBase III est le premier de gestion de 
base de donnees. DBase III suit en effet une brillante carriere, Rappelons que dBase [l 
fut un des premiers logiciels a etre diffuse a une grande echelle. Ses limitations et 
quelques problemes dejeunesse furent corhges dans la version dBase III. ^ujourd'hui, 
dBase III Plus est une version amelioree de dBase 111. Elle autohse I'utilisation de 
fichiers en reseaux, De plus, certains algorithmes de tri ont ete re-etudies afin 
d'optimiser la vitesse d' execution sur gros fichiers. 

En prologue, Ashton-Tate presente dBase III comme un systeme de gestion de base 
de donnees de type relationnel. C'est exact dans le principe mais il faut se souvenir 
que nous sommes dans un environnement micro-informatique. Si les possibilites sent 
enormes, attention aux capacites de la macfiine aipsi qu'aux temps d'execntion, 
dBase III peut etre utilise de trois manieres distinctes : soit en mode clavier simple par 
interrogation, soit en mode ASSIST par systeme de menu deroulant, soit en mode 
programme en utilisant le langage de programmation de dBase III. 
Afin de faciliter ['utilisation de dBase 111, deux utilitaires ont ete conpus pour creer des 
applications de gestion de ficfiiers simples (dBoutils...) en automatique. 

DBASE 

Dans cet article, nous ne presenterons pas dBase III. Ceci a deja ete fait dans notre 
n° 20 de mai 1985. De ce fait, nous traiterons surtout des differentes commandos. La 
deuxieme partie de cet article sera consacree a un long exemple concernant la 
realisation d'un ficliier articles et sa gestion. 



RAPPEL DES PRINCIPALES CARACTERISTIQUES DE DBASE III 


NOTES PERSONNELLES 


1. Systeme de gestion de base de donnees de type relationnel. 

2. Mode interactjf ou mode programme, 

3. 128 champs et 4 000 caracteres maximum par enregistrement, 

4. Nouveau type de donnees MEMO permettant aux enregistrements d'atteindre une 
longueur de plus de 500 000 caracteres. 

5. Un milliard d'enregistrements par fichier. 

6. Utilisation possible et simultanee de 10 fichiers de donnees. 
7- Tri ultra-rapide sur plusieurs champs. 

a, Fichier indexe, recherche tres rapide, etc, 

9. Langage tres complet, avec possibilite d'utiliser des procedures et des passages de 
. parametres. 




UN SYSTEME DE GESTION DE BASES DE DONNEES 




dBase III est architecture autour d'un certain nombre de fichiers 
donnees. 
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NOTES PERSONNELLES 



LESFICHIERS DBASE III 

dBase III sauvegarde les informations sur des fichiers disques de neuf formats 
diflerents, Chacun repond a un besoin particulier. 

a. Fichier base de donnees 

Les fichiers de base de donnees stockent les informations, lis sont realises sous forme 
d'enregistrements et de ctiamps. Chaque enregistrement contient un seul ensemble 
d'informations, 

b. Fichiers MEMO 

Les fictiiers MEMO sont des fichiers auxiliaires des fichiers de donnees. [Is sont 
utilises pour stocker les informations de champs MEMO, dBase III peut conienir un 
champ MEMO pour chaque enregistement II s'agit en fait dun texte se raccrochant a 
un enregistrement. Ce texte peut servir a stocker des informations autres que les 
champs usuels. 

c. Ficliiers index 

Les fichiers index permettent d'utiliser un fichier de donnees dans un ordre logique 
different de I'ordre pfiysique. L'ordre physique correspond a I'ordre d' enregistrement 
iors de la saisie. L'ordre logique peut etre un ordre alphabetique ou numerique, base 
sur le contenu d'un ou de plusieurs champs. 

d. Fichiers commands 

lis contiennent les programmes de gestion ou d' application qui ont ete crees grace a 
lediteur de dBase III. lis sont realises avec la commande MODIFY COMMAMD. 

e. Fichiers format 

Les fichiers format permettent de creer des ecrans de saisie personnalises et des 
elements de sortie personnalises sur imprimante. 

f. Fichiers etiquettes 

Ceux-ci contiennent les informations necessaires pour remplir des etiquettes. En effet. 
grace a la commande LABEL, il est possible d'imprimer les informations sur un format 
d'etiquette. 

g. Fichiers memoire 

Les fichiers memoire peuvent contenir jusqu'a 256 variables memoire qui sont 
stockees dans une memoire tampon et peuvent etre utilisees par plusieurs 
programmes ou applications a tout instant. II s'agit, en d' autres termes, de vanables 
communes, 

h. Fichiers d'impression 

Les fichiers d'impression contiennent les informations necessaires a la commande 
REPORT, Cette derniere auiorise la confection de formats d'impression pre- 
determines, par exemple une edition de type facture ou formulaire pre-etabli, 
i. Fichiers texte 

Les fichiers texte sont sous format ASCII, II s'agit uniquement de caracteres 
imprimables, lis servent d'interface entre dBase III et d' autres programmes utilisateurs. 

LA COMMANDE ASSIST 

Parmi les trois modes d' utilisation de dBase III. le mode Assist est tres interessant. En 
effet, en mode simple (interrogation a partir du clavier), il convient de bien connaitre 
toutes les commandos de dBase III ainsi que leurs utilisations! En mode programme, il 
faudra bien sur ecnre ses programmes. Le mode Assist simplifie la tache. II pourra etre 
utilise pour des applications simples, Dans ce cas, I'utilisation des fichiers se fait en 
mode interactif a I'aide de menus deroutants, De plus en plus de progiciels utilisent ce 
mode de fonctionnement, Le mode Assist est active en tapant ASSIST puis validation, 
Chaque partie du logiciel possede un systeme de menus arborescents. Le 
deplacement d'un menu a I'autre et le pointage d'une commande se font a I'aide des 
touches de deplacement du clavier (fleches) et de la touctie validation (ENTER). II est 
ainsi possible dacceder a toutes les commandes el autres fonctions. 

LES PRINCIPALES COMMANDES DE DBASE III 

USE : La commande USE indJque a dBase III le fichier que Ton 

desire utiliser. Ex, : USE MOMS : utiliser le fichier NOMS, 

DISPLAY : Cette commande permet de visualiser le contenu du 

premier enregistrement. 



INOTES PERSONNELLES 



II s'agil d'une extension de la commande DISPLAY. Ceci 

signifie visualjser du premier enregistrement jusqu'au 

quatrieme. 

Efface I'ecran. 

Lister tous les enregistrements. 

Idem a LIST, mais ici il faudra appuyer a la fin de chaque 

page ecran sur ENTER pour voir la page suivante. 

Cette commande indique la structure d'un fichier : 

- le nom et le type de champ 

- la taille de chaque champ 

- le nombre d' enregistrements 

- la date de la derniere mise a jour. 
Affiche le contenu de I' enregistrement n" 10. 
Aller a I'enregistrement n" 22. 
Quitter dBase III. 
Appel du menu d'aide. 
Commande pour ajouter un enregistrement. 
Cette commande permet d'aller a I'enregistrement n° 12 
pour effectuer une modification. Un menu d'aide et de 
commandes apparait en haut de I'ecran, 

BROWSE ; Cette commande permet d'acceder en mode modification 

sur tout le fichier. 
DELETE RECORD 5 ; Detruire I'enregistrement n° 5 (destruction logique). 
RECALL ALL : Rappeler les enregistrements detruits par DELETE. 

PACK : Detruire definitivement les enregistrements detruits par 

DELETE, II s'agit ici d'une destruction physique, 
CLEAR ALL ; Cette commande ferme tous les fichiers ouverts. 

CREATION DUN FICHIER 

La creation d'un fichier peut se faire soit en mode ASSIST, soit grace a la commande 
CREATE. Cette derniere appelle une routine de creation qui contient tous les ordres 
pour la creation d'un fichier. 

OPERATEURS RELATIONNELS ET LOGIQUES 

Operateurs relationnels 



DISPLAY Next 4 



CLEAR 
LIST 
DISPLAY au 

DISPLAY 
STRUCTURE 



DISPLAY RECORD 10 

GOTO 22 

QUIT 

HELP 

APPEND 

EDIT 12 



> supeneur a 

< - inferieur ou egal a 
> - superieur ou egal a 

< > different de 
Operateurs logiques 

AND et logique 
OR ou logique 
NOT non logique 
La commande FOR 

La commande FOR permet de donner une ou plusieurs conditions aux commandes 
DISPLAY et LIST, 
Ex. : 1. DISPLAY NOM FOR NOM < ' N ' 

Afficher les noms dont le premier caractere est superieur a N. 

2. DISPLAY NOM, LOYER FOR LOYER < = 8000 

Afficher les noms et les loyers pour chaque enregistrement dont le champ loyer 

est inferieur ou egal a 8 000 F. 

LETRI 

Le tri rapide se fait en deux temps. II convient de realiser un double au fichier que Ton 
veut trier Puis, dans un second temps, le tri est effectue en partant des donnees du 
fichier maitre vers les fichiers tries. 
La commande est ; 

SORT ON < liste de champs > TO < nouveau fichier > 



« NOTES PERSONNELLES 



INDEXATION 

Dans le cas dun fichier trie, le fait d'ajouter des enregistrements a toutes les chances 
de mettre un terme au trj prealablement etfectue. II existe pour cela une autre solution : 
I'indexation. Un fichier d'indexation est un fichier qui reprend I'ordre dans iequel les 
enregistrements devront etre relus. En d'autres termes, un champ d'un enregistrement 
se verra affecter d'un numero d'ordre de ciassement. Ainsi, Tensemble du fichier n'a-t- 
il pas besoin d'etre entierement reorganise a chaque modification. II y a done le fichier 
principai et un fichier simpiifie d'indexation, 
Commande : 

USE NOMS 
INDEX ON NOlVl TO FAMILLE 
Ceia signifie : - utiiiser le fichier NOMS 

- indiquer le champ NOM sur FAMILLE. 

RECHERCHE RAPIDE D'UNE INFORMATION (FIND) 

Grace a I'indexation, il est possible de retrouver rapidement une information. 
Commande ; 

SET INDEX TO FAMILLE 
FIND ROUX 
Cela signifie ; - se positionner sur i'index FAMILLE 

- chercher le nom ROUX. 

FONCTIONS SUR LES CHAINES DE CARACTERES 

+ Concatenation de chaines ou de champs. 

LEN Evaluation de ia longueur dune chafne ou d'un champ. 

UPPER Conversion de minuscules en majuscules. 

TRIM Elimination des espaces de la fin de la chafne. 

LA COMMANDE ERASE 

Cette commande permet d'effacer un fichier. 

REALISATION D'UN PROGRAMME 

Grace a I'edileur de texte de dBase III, il est possible d'ecrire des programmes 

d'application partant des fichiers dBase III. 

Le langage de programmation fourni avec le progiciei est assez puissant et bien 

structure. 

En deuxieme partie de cet article, nous presentons un programme de gesfion 

d'adresses sous dBase III. La structure du fichier adresses est la suivante ; 

. USE ADRESSE 

. DISPLAY STRUCTURE 

Structure -for database: 

Number o-F data records: 

Date o-f last update : 

Field Field Name Type Width Dec 



C: ADRESSE. dbf 



01/01/BO 

Midth 



1 NOM 

2 PRENDM 

3 ADRESSE 

4 CODE 

5 VILLE 

6 TEL 

7 DIVERS 
** Total »» 



Character 
Character 
Character 
Character 
Character 
Character 
Character 



20 
30 



Tous les champs sont de type caractere. 

Le programme est architecture en deux parties : 

- le programme pnncipal, 

- les procedures de gestion des enregistrements. 



Les commandes principales du programme sont ; 

1. Creation d'un enregistrement 

2. Modification d'un enregistrement 

3. Annulation d'un enregistrement 

4. Rectierche dun enregistrement 

5. Suivant 

6. Precedent 

7. Edition 

8. Index 

9. Quitter 

PROGRAMME PRINCIPAL 

* Norn.,...: ADRESSE.prg 

* But-....: Bestion du fichier ADREBSE 

* Date : Le 31/ 3/1987 

* Auteur.,: GENCDDE (Bnrateur de programmes dBASE III) 
BET COLOR TD 7/0,0/7,0 

CLEAR 

SET DELETE ON 

SET EXACT DN 

SET TALK OFF 

SET HEADINB OFF 

SET SCOREBOARD OFF 

BET ESCAPE ON 

IF .NOT. FILE( ADRESSE.DBF') 

7 ' "Vous devez au pralable crer la structure du -fichier de donnes" ' 

? ■ " 

? "Employez la commande OCREATEf de dBASE pour gnrer la structure" ' 

? ' SiAAAAAAAAAAAAAAAAAAAAAAAA&AAAAAAAAAAAAAAAAAAAAAAAAA&A&AAAAAAAAAAAi ' 

RETURN 
ELSE 

IF .NOT. FILE( 'ADRESSE.NDX') 
USE ADRESBE 
INDEX DN nom TO ADRESSE 

ENDIF 
END IF 

SET COLOR TO 7/0 
SET PROCEDURE TO ADRESSE. PRC 
CLOSE DATABASE 
USE ADRESSE INDEX ADRESSE 

PUBLIC xnom,xprenom,xadre55e.>!cp ,>:vi lle,xtel ,;; divers 
PUBLIC PRESENT 
TEXT 

NOM: PRENDM: 

ADRESSE: 

CODE POSTAL: VILLE: 

TEL: 
DIVERS: 




ENDTEXT 

@ 22,00 SAY 

@ 22,39 SftY 

@ 23,00 SAY 

@ 23,73 SAY 

e 24,00 GAY 

@ 24,39 SAY 

STORE 'N- TP present 

SET COLOR TD 0/7 

@ 23,03 SAY Crer ' 

@ 23,09 SAY 'Modifier' 

& 23,18 SAY 'Annuler' 

@ 23,26 SAY 'Rechercher' 

e 23,37 SftY 'Suivant' 

@ 23,45 SAY -Prcdent' 

@ 23,55 SftY 'Edition' 

e 23,63 SAY 'Index ' 

@ 23,67 SAY 'Quitter' 

SET COLOR TD 7/0 

Q 23,77 SAY ' ' 

STORE .T. TO boucle 

DO UHILE boucle 

SET COLOR TO 0/7 
DO WHILE -T. 

STORE CHRCINKEYO) TO reponse 
IF reponse # CHR(O) 

EXIT 
ELSE 

@ 0O,71 SAY TIMEO 
END IF 
ENDDO 

IF ATtreponse, CMARSPEIQ') = 
?? CHR(7) 
LOOP 
ELSE 

SET COLOR TO 7/0 
DO CASE 

CASE reponsB='C' 

SET COLOR TO 7/0 
& 23,03 SAY 'Crer' 
SET COLOR TD 0/7 
DO efface 
DO store 
DO cree 

SET COLOR TO 0/7 
e 23,03 SAY 'Crer' 

CASE reponse^'M' .AND. preseot= 

SET COLOR TO 7/0 

& 23,09 SAY 'Modifier- 

SET COLOR TD 0/7 

DO storage 

DO sal si e 

SET COLOR TO 0/7 

@ 23,09 SAY 'Modifier' 
CASE reponse='A' .AND. present* 



SET COLOR TD 7/0 




@ 23,18 SAY 'ftnnuler' 




SET COLOR TD 0/7 




DO annuls 




SET COLOR TO 0/7 




& 23, IB SflY 'Annuler' 




CASE reponse='R' 




SET COLOR TO 7/0 




& 23,26 SAY Rechercher' 




SET COLOR TD 0/7 




DO efface 




DO cherche 




SET COLOR TO 0/7 




& 23,26 SAY 'Rechercher- 




CASE reponse^'S' .AND. .NOT. EDFO 




SET COLOR TD 7/0 




& 23,37 SAY 'Suivant' 




SET COLOR TO 0/7 




SKIP 




DO affiche 




SET COLOR TO 0/7 




& 23,37 SAY 'Suivant' 




CASE reponse='P' .AND. .NOT. BOFO 




SET COLOR TD 7/0 




& 23,45 SAY Prcdent' 




SET COLOR TD 0/7 




SKIF-1 




DO affiche 




SET COLOR TD 0/7 




@ 23,45 SAY 'Prcdent' 




CASE reponse='E' 




SET COLOR TO 7/0 




@ 23,55 SAY 'Edition' 




SET COLOR TO 0/7 




DO e-fface 




DO edite 




SET COLOR TD 0/7 




@ 23,55 SAY 'Edition' 




CASE repon5e='I' 




SET COLOR TO 7/0 




& 23,63 SAY 'Index ' 




SET COLOR TD 0/7 




DD efface 




SET COLOR TD 0/7 




e 00,00 SAY SPACE (79) 




& 00,01 SAY 'Ractualisation du fichier en cours, . . | 


PACK 




SET COLOR TO 0/7 




@ 23,63 SAY 'Index ' 




SET COLOR TD 7/0 




& 00,00 SAY SPACE (79) 




CASE repon5e='D' 




SET COLOR TD 7/0 




& 23,69 SAY Quitter' 




CLOSE PROCEDURE 





CLOSE DATflBflSES 
SET COLOR TO 7/0 
CLEAR 
RETURN 
OTHERWISE 

?? CHR(7) 
ENDCASE 

SET COLOR TO 7/0 
S 23^77 SAY ' ' 
END IF 
ENDDO 

BIBLIOTHEQUE OE PROCEDURES 

* Norn : ADRESSE.prc 

* But : Procdures du fichier ADRESSE 

* Date : Le 31/ 3/19B7 

* Auteur-.: BENCDDE (Gnrateur de programmes dBASE III) 
PROCEDURE cree 

STORE N- TO present 

SET COLOR TD 7/0,7/0 

STORE SPACE ( 15) TO xnom 

@ 4, 4 BET xnom 

READ 

IF xnom=' ' 

@ 4, 4 SAY SPACE ( 15) 

RETURN 
ELSE 

STORE UPPER(xnom) TO xnom 

CLEAR GETS 

DO store 

APPEND BLANK 

DO sal si e 

STORE '0' TO present 
ENDIF 
RETURN 
PROCEDURE cherche 

STORE 'N' TO present 

SET COLOR TO 7/0,7/0 

STORE SPACE< 15) TO xnom 

@ 4, 4 GET xnom 

READ 

IF xnom=' ' 

e 4, 4 SAY SPACE { 15> 

RETURN 
ELSE 

STORE UPPER (xnom) TO xnom - 

CLEAR GETS 

FIND '&xnom' 

IF .NOT. EDFO 
DO AFFICHE 
STORE '0' TO PRESENT 

ELSE 

SET COLOR TO 0/7 

& 00,00 SAY SPACE (79) 

e 00,01 SAY 'FICHE INCONNUE: Pressez une touche 



SET CONSOLE OFF 
WAIT 

SET CONSOLE ON 
SET COLOR TO 7/0 
& 00,00 SflY SPfiCE<79) 
END IF 
END IF 
RETURN 
PROCEDURE annul e 

SET COLOR TO 0/7 

& 00,00 SAY ' Etes-vous sur de vouloir supprimer cet ' 

@ 00,40 SAY 'te fiche (0/N) : 

@ 00,55 SAY ' ' 

STORE ■ ' TO reponse 

SET CONSOLE OFF 

WAIT TO reponse 

SET CONSOLE ON 

STORE UPPER (reponse) TD reponse 

@ 00,56 SAY reponse 

IF reponse='0' 

& 00,59 SAY 'Confirmez (0/N): ' 
STORE ' ' TO reponse 
BET CONSOLE OFF 
WAIT TD reponse 
SET CONSOLE ON 

STORE UPPER (reponse) TO reponse 
@ 00,76 SAY reponse 
IF reponse^'D' 
DELETE 

STORE 'N- TO present 
DO EFFACE 
END IF 
END IF 

SET COLOR TO 7/0 
@ 00,00 SAY SPACE(79) 
RETURN 
PROCEDURE edite 

STORE N' TO present 

& 23,03 SAY SPACE (73) 

& 23,03 SAY '(l)=Edition par REPORT (2)=Edition par LABEL 

e 23,57 SAY ■ Votre choix: 

DO WHILE .T. 

e 23,73 SAY 'O' 
STORE INKEYO TO reponse 
IF reponse < 49 .DR. reponse > 51 
SET COLOR TO 0/7 
@ 23,75 SAY ■±- 
BET COLOR TO 7/0 
LOUP 
ELSE 

STORE CHR(reponse) TO reponse 
& 23,75 SAY reponse 
DO CASE 

CASE reponse = ' 1 ' 

@ 23,03 SAY SPACE (73) 

& 23, 03 SAY 'Donnez le nom du fichier REPORT: ± 





SET COLOR TD 7/0,7/0 




STORE SPACE<S) TO -fichler 




@ 23,37 BET fichier 




READ 




CLEAR GETS 




IF -fichier tt ' ' 




STORE TRIM(f ichierJ + '.-frm' 


TO fichier 


IF .NOT. FILE( ikfichier') 




. e 23,03 SAY "Ce fichier 


n'existe pas ou ne se " 


@ 23,36 SAY 'trouve pas 


dans le rpertoire courant...' 


SET CONSOLE OFF 




WAIT 




SET CONSOLE ON 




ELSE 




SET CONSOLE OFF 




REPORT FORM fe-fichier TO 


PRINT NOEJECT 


SET CONSOLE ON 




END IF 




END IF 




EXIT 




CASE reponse = '2' 




@ 23,03 SAY SPACE(73) 




& 23,03 SAY 'Donnez le nom du 


fichier LABEL: ± ±- 


SET COLOR TO 7/0,7/0 




STORE SPACE<8) TO fichier 




e 23,37 GET fichier 




READ 




CLEAR GETS 




IF fichier « ' ' 




STORE TRIM(fichier)+'.lbl ' 


TO fichier 


IF .NOT. FILEt '&!f ichier') 




e- 23,03 SAY "Ce fichier 


n'Bxiste pas ou ne se " 


a 23,36 SAY trouve pas 


dans le rpertoire courant. . .-' 


SET CONSOLE OFF 




MAIT 




SET CONSOLE ON 




ELSE 




SET CONSOLE OFF 




LABEL FORM Sfichier TO PRINT j 


SET CONSOLE ON 




ENDIF 




END IF 




EXIT 




CASE reponsB = '3' 




EXIT 




ENDCASE 




ENDIF 




ENDDQ 




SET COLOR TO 0/7 




@ 23,03 SAY 'CrerO' 




@ 23,09 SAY 'ModifierU- 




& 23, IB SAY 'AnnuIerO' 




& 23,26 SAY RechercherO" 




& 23,37 SAY 'SuivantO' 




@ 23,45 SAY 'PrcdentO' 





@ 23,55 SflY 'Editi 


anO' 




e 23,63 BAY 'Index 


J- 




@ 23,69 SAY -QuitterO' 




SET COLOR TO 7/0 






@ 23,77 SAY ' ' 






RETURN 






PROCEDURE sal si e 






SET COLOR TO 7/0,7/0 




@ 4,38 GET xpreno 


n 

5e 




@ 7, 8 GET xadres 




& 9,12 GET Kcp 






e 9,29 GET xville 






@ 11, 4 BET xtel 






@ 13, 7 GET xdivers 




READ 






CLEAR GETS 






REPLACE nom 


HITH 


Knom 


REPLACE prenom 


WITH 


xprenom 


REPLACE adresse 


WITH 


xadress 


REPLACE cp 


WITH 


xcp 


REPLACE ville 


WITH 


xville 


REPLACE tel 


WITH 


xtel 


REPLACE divers 


WITH 


xdivers 


RETURN 






PROCEDURE a-ffiche 






SET COLOR TO 7/0 






e 13, 7 SAY divers 






@ 11, 4 SAY tel 






e 9,29 SAY ville 






@ 9,12 SAY cp 






@ 7, 8 SAY adresse 




@ 4,38 SAY prenom 






& 4, 4 SAY nom 






IF nomO' ' 






STORE 'D' TO PRESENT 




END IF 






RETURN 






PROCEDURE efface 






SET COLOR TO 7/0 






@ 13, 7 SAY SPACE( 


20) 




@ 11, 4 SAY SPACE { 


11) 




& 9,29 SAY SPACE ( 


10) 




& 9,12 SAY SPACE C 


5) 




& 7, 8 SAY SPACE ( 


20) 




& 4,3S SAY SPACE < 


15) 




e 4, 4 SAY SPACE ( 


15) 




STORE 'N' TO present 





RETURN 
PROCEDURE store 

STORE SPACE ( 15) TO x prenom 

STORE SPACE ( 20) TO x adresse 

STORE TO xcp 

STORE SPACE( 10) TO xville 

STORE SPACE ( 11) TO xtel 

STORE SPACE( 20) TO xdivers 

RETURN 



PROCEDURE storage 
STORE nom 
STORE prenom 
STORE adresse 
STORE up 
STORE ville 
STORE tel 
STORE divers 
RETURN 



TO xnom 
TO xprenom 
TO X adresse 
TO xcp 
TO xville 
TO xtel 
TO xdivers 



QUELQUES EXPLICATIONS SUR LES ORDRES UTILISES 

SET COLOR : Specifie les attributs d'ecran (couleur, noir et blanc, etc.) 

SET DELETE : Aflfiche les enregistrements reperes pour effacement. 

SET EXACT : Exige une correspondance exacts lors d'une 

comparatson, 
SET TALK : Enuoie le resultat de I'execution des commandes a 

I'ecran. 
SET HEADING ; Affiche le nom des champs lors des commandes LIST et 

DISPLAY. 
SET ESCAPE : Continue Texecution d'un fichJer de commande lorsque la 

touche ESC est enfoncee. 
CLOSE DATABASE : Ferme les tjchjers. 

PUBLIC : Declare toutes les variables memoires globales. 

TEXT et ENDTEXT : Declare et termine une partie de texte, 
SAY : Localisation de I'affichage a I'ecran (ligne, colonne), 

STORE ; Archivage d'une donnee en memoirs vive. 

DO WHILE : Faire tant que. 

CASE : Procedure de choix. 

DO : Executer un programme, une procedure. 

Ex. : DO EFFACE : executer la procedure Efface. 
SKIP ; Positionnement du pointeur en avant ou en arriere. 



-BON DECOMMANDE- 



Pour completer votre collection de Led-Micro 

A retourner aux EDITIONS FREQUENCES 1, boulevard Ney - 75018 Paris 

Je desire ien°DDDanDnDnnnDDDQDDQDDnDDn[:innn n 
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d'initjation 

le plus 

complet 

+ de 700 pages 




Non, on ne s'initie pas a la micro-informatique en 5 lepons ! 

Si vous croyez au Pere Noel vous pouvez esperer apprendre I'Informatique en lisant les innombrabies =Cours de 
BASIC pour debutants" qui ont pousse comme des cliampignons dans les annees 1980. Votre ordinateur risque 
de finir ses jours au-dessus de votre armoire. 

Mais si vous voulez vraiment apprendre a programmer il faut avoir le courage de commencer par A pour arriver 
a Z. Programmer est un loisir inlelligent et peut devenir un metier passionnant, mais I'etude de la programmation 
necessite un minimum de travail et de methods. 

Etre serieux - c'est le pari que fit la revue LED-MICRO en pubtiant a partir de 1985 les 20 premiers cours de 
C. Polgar. Pius de 40 000 iecteurs les ont suivis. Ce succes nous a conduit a demander a C. Polgar de remettre 
son cours a jour et dele completer. Leresultat:un ouvrageepais (3 tomes, plus de 700 pages format 21 x27), per- 
mettant d'acquerir agreablement des connaissances solides. 



Diffusion aupres des libraJres assures exclusivement par 
les Editions Eyrolles, 

Initiation a la micro-informatique C. Polgar 

Bon de commande a retourner aux Editions Frequences 

1, boulevard Ney 75018 Paris. 
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Initiation a la 

Micro-lnformatique 

1^' Cycle 

Tome 3 

(enfin paru !) 



3.16 (Suite et fin) L'aff ichage 



t Etude des instructions permettant d'etfectuer ties presentations -ev 

PRINT TAB - PRINT USING - LOCATE - COLOR en mode texte. 
y Presentation en tableaux de touies sortes grace a la pratique des operateura 

MODULO et DIVISION ENTIERE. 
* Beaucoup de programmes utilisent des assemblages de ce 
operateurs... dont la combinaison nest pas toujours facile. 



3.17 Compiements 



t Etude des demieres instructions, fonctions et variables du cycle 1 : FILES. 
KILL. AUTO, ON ERROR GOTO, RESUME, ERR, ERL, DELETE, EDIT, RENUM 
TRON. TROFF, STOP, CONT, KEV ON. KEY OFF. FIX, BEEP. 

k Complements de cycle 1 qui sont maintenant accessibles aux el^ves ; sur la 
precision et les erreurs dues a I'arrondi, sur la selection, les boucles. 



3.18 Graphisme 



t Une etude complete et d6taill6e sur les Instructions graplilques en haute reso- 
lution : SCREEN, P3ET, PRESET, STEP, LINE, CIRCLE, COLOR, POINT 
PAINT, sans eluder aucune des difficultes et 'pieges- classiquas : Tincrusta- 
tion de texte dans le dessin, les .bavures- dues au PAINT mal utilise. 

t Une etude detaillee du langage graphique DRAW, avec ses subtilltes et ses 
pieges (sous-chaines X, parametres variables dans le DRAW, etc.). 

*: De nombreux exercices avec leurs solutions (80) et leurs illustrations sur des 
photos d'ecran en couleur (48 photos). 



3.19. Dessin des courbes 

* Un chapitre separe du graphisme general (chapitre 3.18) de lapon a ce que les 

* Pour les mattieux ; une exceliente revision et illustration des courbes de toutes 
sortes : Y - f (x), courbes parametrees, courbes en coordonnees polaires, 
avec des exemples utiles : courbes d'amortissement. astroide, cardioide. 
decomposition d'une fonction penodjque par une sene de Fourier. 

3.20. Revision generate 

* L'enchainement des notions selon I'ordre -pedagogigue- Qui a ete utilise 
jusqu'ici est bien ditterent de i'ordre -logique-. Autant qu'un cours d'anglais 
suit un ordre dilterent de celui (plus logique ') d'une grammaire anglaise. 

* Tout ce qui a ete enaeigne jusqu'ici resume en 30 pages. Une reference pour 
retrouver la notion dont on a besoin a travets le cours el ses exercices. fulais 
aussi une reflexion sur la structure dun langage intormatique, d'ou une prepa- 
ration a la lecture des cours de PASCAL (par example !]. 

3.21. Tecliniques de mise au point 

* Les ouliis de base : etude des editeurs de lexte, connaissance et interpreta- 



■ [experience que 



3.22. Problemes de synthase - Notions d'analyse 

C'esl a la fois la conclusion, la partie la plus originale et la plus utile de ce cours. 
L'auteur ne se contente pas de fournir une liste de problemes avec leur solution : 
il se met a la place du programmeur debutant en essayanl de decortiguer le -pro- 
cessus de reflexion, qui fait passer de I'enonce dun probleme a sa solution: une 
initiation pratique a I'analyse. 

1 livre troche de 248 pages pages 21 x27, dont 8 pages en couleur 
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Systemes MIC 



• exploiter toutes les possibilites des systemes MIDI 

• realiser vous-memes un clip video 

• tirer le maximum de vos synthetiseurs 

• installer Chez vous votre studio d'emegistrement 

• tout savoir sur les nouveautes musique et video creatives 

Tout cela chaque mois 
dans Music Video Systemes 

une publication des Editions Frequences chez votre marchand de journaux 
Editions Frequences 1, boulevard Ney 75018 Paris - Tel. 46.07.01.97 



